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In the last VZDU pages 11 and 12 are reversed. Just turn the page 
over and switch the numbers. Sorry about that. 


Once again we have "lots of goodies". I continue Bob's SOUND 
series and David's Mystery program writing. Dave Mitchell did'nt get 
flooded out, and has sent us a program that will formatt (init) one 
nominated track. I tell you how Ii needed to make use of it almost as 
soon as I git it. 

Paul has turned his attention to commenting on action games. 


Aust. Post is not gathering enough sheckles,so have made 
alterations to their parcel rates. Like Telecom they advise the public 
a month or so after they become effective. 


I suggest you look into the $1 prepaid envelopes, as the most 
desirable for our use. They take an A4 page folded, can be up to 20 mm 
thick and can be up to 500grams. That is enough to hold 5 VZDU 
Newsletters, or 2 cassettes or about 8 disks with stiffening added. As 


packets that would cost $2.80. They are carried by air and interstate. 


If you want bigger there is the $2 envelope which is twice the size, 
‘but still limited to the 20mm thickness. I receive articles here with 
twice the postage necessary on them, and it makes my heart bleed. 


We are extending our library, by adding a few books. To start 
there is the VZ200 and VZ300 Tech Manuals, DSE Introduction to 
computing, DSE First book of programs, DSE Further programming, and 
DSE Omibus book of programs. As these books cannot be obtained now, we 
have put a $25 deposit on them, and we think a 1 month loan is 
reasonable. We would ask thet they be returned earlier if possible as 
others may want them. Postage. Most will fit the $2 envelope, and that 
ig to your account. We will take it out of the deposit if you choose. 

There are a lot more books on hand, and will be listed in the next 
Newsletter. Almost ready are tapes 7-8-9-10. 


Happy Computing, 
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with 


SINGLE TRACK FORMÁTŤ „2... 


WRITTEN BY DAVE MITCHELL 


program has been a long time comming , it was plagued 


bugs. However here is a program that will formatt single 


tracks. 


The program 
loaded 


once run will BEEP to let you know it has been 


from disk. The USR ROUTINE will be set up so you can 


renter the program if you break out of it. 
Displayed on the screen will be :- 


ENTER 


The TRACK NUMBER is to be ENTERED in HEX . 
:— If a track already has data , 


SINGLE TRACK FORMATT 
BY D.MITCHELL 
TRACK NUMBER : 


A WORD OF WARNING 
IT WILL BE LOST IF YOU FORMATT 


THIS TRACK. 
When a track has been formatted the program restarts with 
the BEEP to let you know it is completed. This program is 


usefull when data is lost from track zero. 


00010 
00020 
00030 
00040 
00100 
00110 
00120 
00130 
00140 
00150 


FOR1--2867270-27895 :READA :POKEI, A: B-B+A : NEXT 
IFB<>80322THENPRINT "ERROR IN DATA" :END 

IFPEEK (16384) <>170THENPRINT"NO DISK DRIVE" :END 
BSAVE"FORMATT" , 9000, 9308 

DATA33,6,144,354,142,120,243, 205, 80,52, 251,253,126, 20,183 
DATA40,13,243,245,205,8,64,241,71,205,62,64,205,11,64,33 
DATA140,146,205,117,43,205,58,5,218,190,29,26,254,32,202 
DATA25,26,35,6,2,17,0,0,126,254,48,56,31,254,58,56,10,254 
DATA65,56,23,254,71,48,19,214,7,230,15,72,6,4,203,35,203 


DATA18,16,250,179,95,65,215,16,220,120,254,2,210,30,144,123 


00160 
00170 
00180 
00190 
00200 


DATAB, 


00210 
00220 
00230 
00240 
00250 
00260 
00270 


DATA254,40,48,161,243,245,50,110,146,253,119,18,33,123,146 
DA1A134,50,112,146,126,50,111,146,253,119,17,205,8,64,241 
DATA183,40,4,71,205,59,64,219,19,203,127,40,28,205,11,64 
DATA251,33,212,146,205,117,43,205,73,0,243,205,80,52,205 


64,1,100,0,205,56,64,24,222,1,232,3,205,56,64,253,279 
DATAZ225,17,77,0,25,253,117,14,253,116,15,235,33,99,146,1 
DATA24,0,237,176,98,107,54,0,19,1,130,0,237,176,253,54,56 
DATA17,1,144,1,205,56,64,253,110,14,253,102,15,17,11,0,25 
DATA84,93,19,66,75,3,217,1,100,0,205,56,64,253,126,51,203 
DATA183,253,119,51,211,16,1,100,0,205,56,64,221,33,123,146 
DATA253,110,14,253,102,15,253,86,51,6,154,205,43,145,253 
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DATA114,51,217,221,126,1,221,35,18,134,2,26,217,254,255,194 
00280 DATA3,145,205,11,64,251,195,6,144,78,62,32,170,203,17,210 
00290 
DATA63,145,211,16,238,32,87,43,211,16,195,74,145,211,16,238 
00300 DATAO,87,43,211,16,195,74,145,35,195,78,145,195,81,145,219 
00310 
DATA18,62,32,170,203,17,210,102,145,211,16,238,32,87,43,211 
00320 DATA16,195,113,145,211,16,238,0,87,43,211,16,195,113,145 
00330 DATA35,195,117,145,195,120,145,219,18,62,32,170,203,17,210 
00340 DATA141,145,211,16,238,32,87,43,211,16,195,152,145,211,16 
00350 DATA238,0,87,43,211,16,195,152,145,35,195.156,145,195,159 
00360 DATA145,219,18,62,32,170,203,17,210,180,145,211,16,238,52 
90370 DATA87,43,211,16,195,191,145,211,16,238,0,87,43,211,16,195 
00380 

JATA191,145,35,195,195,145,195,198,145,219,18,62,32,170, 203 
20390 DATA17,210,219,145,211,16,238,32,87,43,211,16,195,230,145 
00400 DATA211,16,238,0,87,43,211,16,195,230,145,35,195,234,145 
90410 DATA195, 237,145, 219,18,62,32,170,203,17,210,2,146,211,16 
00420 DATA238,32,87,43,211,16,195,13,146,211,16,238,0,87,43,211 
00430 
DATA10,195,13,146,35,195,17,146,195,20,146,219,18,62,32,170 
00440 
DATA203.17,210,41,146,211,16,238,32,87,43,211.16,195,52,146 
00450 DATA211,16,238,0,87,43,211,16,195,52,146,35,195,56,146,195 
00460 DATAS9,146,219.18,62,32,170,203,17,210,80,146,211,16,238 
00470 DATA32,87,43,211,16,195,91,146.211,16,238,0,87,43,211,16 
00480 
DATA195,91,146,35,35,0,5,194,43,145,201,128,128,128,128,128 
00490 DATA128,0,254,231,24,195,0,0,0,128,128,128,128,128,0,195 
00500 DATA24,231,254,0,8,1,9,2,10.3,11,4,12,5,13,6,14,7,15,253 
00510 DATA31,32,32,32,32,32,32,83,73,78,71,76,69,32,84,82,65,6/ 
00520 DATA75,32,70,79,82,77,65,84,84,13,32,32,32,32,32,32,32,32 
00530 DATA66,89,32,32,68,46,77,73,84,67,72,69,76,76,13,69,78,84 
00540 DATA69,82,32,84,82,65,67,75,32,78,85,77,66,69,82,52,58,0 
00550 DATA13,32,32,32,82,69,77,79,86,69,32,87,82,73,84,69,32,80 
00560 DATA82,79.84,69,67,84,32,76,65,66,69,76,15,32,52, 52, 52,32 
00570 DATA32,32,80,82,69,83,83,32,82,69,84,85,82,78,13,0,0,0 


97 ' 
98 ' 
99 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
"LLO 
230 
1000 
1010 
1020 
1030 
1040 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
3000 
3010 
3020 
3030 
5040 
5050 
5060 
5070 
3080 
4000 
4010 
4020 
4030 
4040 


RE AE RE AE E 


ne AE AE AE AE AE AE ak E 


*FIEST NOISE?" 
3E € PR 5 KE 
*¥ 31/8/90 ** 


BE AE FE FE FE AE HE AE FE AE E E E € 


***TEST VARIOUS NOISES USING BEEP ROUTINE. 


: ***BEEP ROUTINE. 
:sPRINT: PRINT 


CLS:POKE 30862,80:POKE 30863,52 
PRINT: PRINT" VARIOUS NOISES” 
PRINT" 1. RADIATION DETECTOR” 

PRINT" 2. HEART BEAT" 

PRINT" 3. WHATISIT" 

PRINT" 4, WHATISIT” 
PRINT:PRINT"ENTER CHOICE 1-4" :PRINT:PRINT 
INPUT"HOLD ANY KEY TO QUIT ";OP$ 

IF OP$="1" THEN GOTO 1000 

IF OP$="2" THEN GOTO 2000 

IF OP$="3" THEN GOTO 3900 

IF OP$="4" THEN GOTO 4000 

GOTO 100 


 *** RADIATION DETECTOR. 

IF RND(O) < 0.5 THEN GOTO 1010 

X=USR (0) 

GOSUB 5000:IF A$=""THEN GOTO 1010 ELSE GOTO 100 


'***HEARTBEAT. 

X=USR (0) 

X=USR (0) 

X=USR (0) 

FOR 1%=0 TO 250:NEXT 1% 

X=USR (0) 

FOR 1%=0 TO 250:NEXT 1% 

GOSUB 5000: IF AS=""THEN GOTO 2010 ELSE GOTO 100 


 #MMYHATISIT. 
FOR 13-0 TO 30 
X=USR (0) 
X=USR (0) 
FOR N%=0 TO I% 
NEXT NZ 
NEXT 1% 
GOSUB 5000:IF AS=""THEN GOTO 3010 ELSE. GOTO. 700 


 2##UHATISIT. 

FOR I%=0 TO 160 STEP 4 
GOSUB 4100 

NEXT IZ 

FOR 1%-160 TO 0 STEP -4 


G 


4050 
060 
4070 
4080 
4100 
4110 
4120 
4130 
4140 


GOSUB 4100 
NEXT I% 
GOSUB 5000: IF A$-""THEN GOTO 4010 ELSE GOTO 100 


X=USR (0) 

X=USR (0) 

X=USR (0) 

FOR NZ=0 TO I%:NEXT NZ 
RETURN 


4150 ' 


5000 
5010 
5020 


'***QUIT ROUTINE. 
AS=INKEYS: AS=INKEYS 
RETURN 


5030 " 

10000 CLS:PRINT"ERASING NOISE" :ERA"NOISE” 
0010 PRINT"SAVING NOISE" :SAVE"NOISE" 
10020 END 


37 
98 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


10000 CLS:PRINT"ERASING VARYDC" 


'*#*\VARY DUTY CYCLE OF 
99 ' 


JE 3€ 3 SE se He HE SE 3% HE E HE M E HE - HE 


x koná ae € 


E eee eee 
7 La = 
ae 7) nn TE 


SE se 


= she aber A 2 
SE € € 


SQUARE WAVE. 
CLS:POKE 30862,80:POKE 30863,52 : '*##*BEEP ROUTINE. 
INPUT" ON TIME 0-255 ";N% 

PRINT 

INPUT"OFF TIME 0-255 ";F% 
PRINT:PRINT:PRINT:PRINT"ENTER CTRL BREAK TO STOP” 
X=USR (0) 

FOR 1%=0 TO N%:NEXT 1% 

X=USR (0) 

FOR 1%=0 TO F%A:NEXT 1% 

GOTO 150 

:ERA"VARYDC" 


10010 PRINT"SAVING VARYDC” : SAVE" VARYDC" 
10020 ' 


10030 REM; 


IF YOU ARE USING TAPE DON'T PUT IN LINE 10000. 


10040 FOR 10010 USE LINE 10050 
10050 PRINT"TO SAVE VARYDC,START TAPE IN RECORD MODE" 
10060 PRINT"PRESS 'CSAVE' AND ENTER NAME. THEN PRESS RETURN" 


S 


Disk I/O ERROR 


How often have you seen this crop up? Or worse still you type DY 
and all you get is ————- NOTHING. Or READY. 







You type STATUS and you get-—--you guessed it. NOTHING or READY. 


What you will find if you use the Disk Doctor is track00 Sector00 
is not addressed. x 


I wrote a rather clumbsy way to get over that some issues back. If 
you have taken my advice and saved the tracks of track 00 with either 
Filesearch or Dave Mitchell's Ex DOS and with the FORMATT program in 
this issue and either the DOC or the Label program you can save that 
diskfull of goodies. FORMATT will formatt the track you nominate. 


Now a clever piece of deduction on my part, (Sherlock Holmes would 
be proud of me), I found that I can even go further to saving a disk. 


I had a disk, a one only, that I tried to copy with COPY from Disk 
Tool Kit. It reads as much as the memory will hold and then saves it 
to the destination disk. With a 300 and 16K expansion that ig tracks 
00 to 13: 14 to 26: and 27 to 39. There was an I/O error in the third 
gulp. I looked with DOC and found track 39 sect 04 was NOT ADDRESSED. 
I could have Formatted that track and copied the rest, but I wanted 
that track. So, here is the clever part, that probably has been in use 
for the last 9 years. I got the VZ200 out, did "nt put in Mem.Exp. So I 
had 6K less DOS. That was enough to read about 2 tracks. It copied to 
the end of track 37, then gave an error. That was 10 tracks more than 
I had, but I was greedy. I then put DOC in again. As I looked at each 
sector I would press M--modify--. Then put in another disk and press 
RETURN. Answer Y to All alteration made. It would then impress the new 
disk with the contents of that secto. After doing that 31 times I had 
the 2 tracks copied, except for the track with the error. Can't do 
anything about that one. But that is only 126 bytes, and some of them 
will be spaces. 


If the fault was in an earlier track, say 5 or 10, then with the 
use of DOC the other sectors could be copied and then that track 
FORMATTed and the disk then copied normally. 


Never being satisfied, I'm now asking Dave to make FORMATT choose 
1 sector r to Formatt! 


( Ed.) 


I have heard of one person that has never seen that "Track not 
addressed error". Well, some people have all the breaks. I've seen 


more than my share. 
( Ed.) 6 


ADVENTURE GAME WRITING 
DISPLAYING THE PLAYER'S ENVIRONMENT A 

Thia aection la roughly aimilar for all adventures, and can 
virtually be copied atraight from another adventure listing. 

In the demonatration program, & aubroutine is called at 4100. Thia 
aubroutine ainply cleara the acreen and diaplaya the current atrength. 
You may like to print something like: 

THE MYSTERY OF 
SPOOKY MOUNTAIN 


TIME REMAINING = 383 
STRENGTH = 83 WISDOM = 42 


o rra remos ====**=>===** 
A 


However, you may be reatricted by the size of the screen in that you 
may not be able to display thia and all the necessary information. 
Following are A few lines apecific to the demonstration program, 
thaat carry out a few sounds, namely a cat and some mosquitoes, in the 
rooma that they are required. 
Following are the next real atepa for the display. 


49 LL-O 


43 IF F(21)=1THEN JS=RS+". IT*S DARK. YOU CAN*T SEE A THING." 
44 IF F(21)-1THEN COSUB4850: J8=""":0=0:GOTO200 
45 Ja=Rar". YOU ARE "s GOSUB 4850:J2="" 


Line 49 aeta up the variable LL to equal. zero so when the computer 
atarta printing, it "knows" that the cursor ia at the left hand edge 
of the screen. Linea 43 and 44 come into play when the player ia in a 
dark room without a torch. They place into JS the measage,R3, as the 
reault of the playera laat action, a full atop to end this message, 
plus a further measage ~ IT’S DARK. YOU CAN’T SEE A THING. They then 
call the aubroutine at line 4850 to print the contenta of JS, then 
jumps to line 200, so that no further information about the player“. 
aurrounds are displayed. 

(There are two possible ways for adventure programs to deal with 
playera trying to enter dark areaa without a light. Some, auch aa 
HAUNTED MANSION and MERKFRUIT LODGE, do not allow the player to enter 
these areas at all. Othera, such as the demo progran, allow the player 
to enter the erea, but not to see anything, 30 those who have mapped 
the area well will be able to find objects if they know where they 
are.) 

Line 45 comea into affect whenever it ia not dark - that ia, moat 
of the time. It adda the "YOU ARE " part of the room deacription to 
the RS message. It isa then printed by the subroutine at 48590. This 
aubroutine enables everything to be printed on the screen with 
automatic line wrap around. Thia means that if a word jan*t going to 
£it on the end of a particular line, it da inatead printed on the 
atart of the next one, inatead of printing the word aplit between two 
lines. The deacriptiona are printed a lot alower on the screen, but 
the wrap around feature makes them a great deal easier to read. 


1850 LS=1:LP=1:FOR I=1 TO LENCJS) 
4455 IF MIDS(J9,1,1)-" " ANDLL>EL, PRINT MIDS(JS,LP,LS-LP) :LP=LS+1 
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4869 IF MIDS(JS,I,1)2“ » ANDLL>EL, LL-I-LS 
1861 IF MID3(J3,1,1)=" “ Ls=1 

4879 LL=LL+1:NEXT 1 

4880 PRINT MIDSC(JS,LP,LEN(JS)-LP); 

48939 RETURN 


The subroutine acana through the atring Ja for Spaces. After each 
character, the Variable LL ía increased by one. If it finda a apace, 
it“a poaition in the atring ia recorded in LS. I£ the apace ia found 
and the value of LL ia greater than the width of the acreen, the 
message la printed from the Plece of the measage that waa laat 
printed, up until the previoua apace, the length of the message that 
haa ao far been printed la atored in LP, and the value of LL ia 
altered to tha current length that haa been acanned minua the position 
of that Previoua apace. Finally line 4890 printa the reat of the 
neaaage between the laat new line and the end of thia message. All of 
Chia sounda like rather a mouthful, so we Will try an example. We will 
aaaume that J&="THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG. YOU ARE 
IN THE DOG’S KENNEL." 

Firatly LL ia aet at 9 and LS and LP are equal to 1. The measage 
ia acanned, with LL initially taking the same value aa I. When I is 
equal to 4, a apace ia found at the end of "The" ao the variable Ls 
(think of these initiala Standing for Laat Space) ia altered to equal 
four. Each time a Space ia found at the end of the next few words, the 
value of LS ja altered to equal the same value as I, until at the end 
Of the word "Over" LS is equal to 30. Thia is where things begin to 
happen. At the end of the next word (another “the") a Space isa found, 
but the value of LL, which haa been ateadily increasing hag now become 
greater than EL (which ia equal to 31). The Part of J& from the start 
-o the value of the laat space - from LP (equal to 1) to LS (equala 
30) la printed on the acreen. Thia la from the atart of the message up 
to "over." The value of LP (Laat Print) ia made equal to that or the 
laat apace (39) PLUS one, becauae we do not want to print the &pace on 
the atart of the next line. LL ia then altered to egual I - LS Which 
ia the length acanned after the end of "over" - in thia case, four. 

It then Continuea to sean through the measage, increaaing LL with 
each character and making LS egual I with the occurenca Of each space, 
Again after the word “dog*a" we find that LL haa exceed 31, go 
everything between character number LP Cthlrty) and LS Cfifty-nine) ia 
printed (from the words "the lazy" to "in the"). Again Lp ia updated 
to the laat apace plus one Caixty) and 11 ia altered to the length of 
"dog“a" (five). After Scanning a little more, the end of the message 
la reached and Program flow passes to line 4880, Here everything from 
the laat Character printed to the end of the message ia placed upon 
the screen - that is, the words “dog’s kennel. « After all of that (no 
wonder Printing atugfg£ on the acreen takea auch a long time!) we are 
RETURNed to whatever line we called the Subroutine fron. 

The next linea in the program read the room description data and 
Print it on the Screen (using another call to line4859): 


29 IFO<>R,L=4999+R=10: GOSUB 3300: GOSUB 4800 ELSEJS=C8% 
55 GOSUB 4850 
54 CHEISIÓOSRIJSSOU  BSz qu 


Because the data Yeading aubroutine takea a fair amount of time, theae 
linea are aet up ao that once the .room deacription haa firat been 


read, it la atored in CS, and dogaen t have to be read again. If you 
keep your room deacriptiona short (Cone data line only), it would save 
memory, and probably be quicker, if the data waa read every time. 
Other interesting points about these lines are the use of the restore 
line number routine at 5300, mentioned in an earlier issue, and the 
use of a comma instead of the THEN command in line 59. Thia doesn”*t 
save any memory, but may enable you to squeeze a few extra characters 
into a line. 
The data reading aubroutine at 4809 followa: 


4800 READAS:BS=B3+AS 
4810 IF RIGHTS(BS,1)<>"0" AND RIGHTS(BS,1)<>"1" THEN 4802 
4815 Ag8="":DA=RICHTS(B3,4) 

4820 JS*Z3( VAL( LEFTS(B8,1))) + ZS(VAL (MIDS(B3,2,1))+4) 
4830: JS=]3+MIDS(B2,3, LEN(BS)-5): RETURN 


In linea 4809 and 4810, a line of data in the description is read, 
added on to BS, then the last character of it is checked. If this is a 
zero cor a one, it da part of the movement code, and ia therefore the 
end of the description. If not, the program returns to line 48009 to 
read the next piece of data. 

Line 4815 takes the movement code from the end of BS, and places 
thia in DS for future uae. 

Line 4820 "decodea" the first two characters of the description 
from Lo” to “in the " or whatever the code may be. The 
VALCLEFTR(BS,1)) command takea the firat number’a numerical value, so 
if the firat number la three, the atring in 23(3) ia added to JS - in 
tais case "by ". The second part of this command adds the string in 
23(second number +4), so if this gecond number waa 2 the contenta of 
23(6) - ("an "> will be added to JS aa well. 

Line 4839 adda the reat of the room description in BS to Js 
Caxcept for the movement code) then returna to the main routine. 

Tf your deacriptiona are all no longer than one line, you can omit 
line 4810 and alter line 4800 to READ BS. If you wish you can make 
Line 30 unconditional (remove everything up to and including the comma 
and everything after and including the ELSE atatement.), delete line 
99, and alter line 69 to GOSUB 4850: Jg="":B3="" .This may save some 
atring memory. 

Linea 79 to 140 check to aee if there are any viaible gettable 
objecta in the room. 


79% FORIZ1TOGI1FC(1)<>R OR FC(I)<>0 THENSO 

80 L=4695+1r5:G0SUBS300: READOS: JZ=JS+2Z2S(ASC(OS) -44) 
85 JS=JS+RIGHTS(08S,LEN(OS)-1) +", " 

34 NEXT 

109 IFJI2<>"",JS=LEFTS(JS, LENC(JS)-2) | 

149 IFJ2<>"",J23=" THERE 15 "+J8+" HERE AND " 


The loop between linea 70 and 939 goes through all the gettable objecta 
and checka to see if each ia both in the room and viaible. If thia ia 
not the case the program flow goes to line 90 which NEXTs the loop so 
that the next object is checked. If an object in the room is visible, 
the line number in which ita deacription occurs, ia calculated, 
restored to, and thia data ia read. The last statement in line 82 
decodes the number at the start of the description, then in line 85 
the rest of the description ia added on with a comma and a space. 
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At the end of the loop the last comma and apace are removed from JS 
and it ia converted into a message such aa "THERE IS A JOYSTICK, A 
HAMBURGER HERE AND ". If there ia no visible object in the room, this 
message of course is not created. | 
Linea 101 to 139 are left blank in case you have any apecial 
object which the player can see but ia not gettable. Objects such aa 
theae are normally just included in the room description, but for 
objecta which may change aomewhere in the course of the adventure game 
you would place them here. For example you may have a geedling that 
growa into a vicious killer cauliflower, or an animated skeleton (in 
moat adventurea these tend to be rather unfriendlyt) which the player 
may decide to hack into atock cubes. 
TFR=63AND F(98)=0 THEN J#=Ja+ “A SEEDLING, ” 
IFR=63AND F(98)=1 THEN JS=Ja+ “A VICIOUS KILLER CAULIFLOWER, 
IFR=87AND F(99)=0 THEN Já=Jg8+ “AN UNFRIENDLY ANIMATED SKELETON, 
IFR=87AND F(99)=1 THEN Ja=Ja+ “A PILE OF SKELETON STOCK CUBES) “ 


¿1 


t 


The next aection of the program deal with displaying the possible 
exits. 


150 Js=Ja+"THERE ARE EXITS TO "iM=O:K=0 

156 FORI=1TO4:IFMIDS(DS,1,1) ="@",M=M+t1:NEXT ELSE NEXT 
160 FORI=1T04:IFMID$(DS,1,1) ="1'"THEN180 

162 J8a=J2+238(9+1):K=K+1 

165 IF K<>M AND K<>M-1 THEN Jg8=J3+", " 

170 IF K=M-1,J$=Ja+" AND " 

175 IF K=M, Ja=jsr". " 

180 NEXT 

199 GOSUB4850 


Line 156 checka to see how many exits there are from the room so the 
program can work out where to put commas, "and" and the full atop in 
the aentence. There ia then a separate loop which adds the relevant 
exita to JS. It checka DS <the movement code) in the order north, 
south, west, east. If there la a one there isa no exit in that 
direction ao the rest of the inatructiona in the loop are ignored. If 
there ia an exit in that direction, the appropriate direction can be 
added from the ZS array (elements 10 to 13 are “north”, "south", "west" 


and "eaat" reapectively). If thia ia not the aecond last or last 
direction in which there ia an exit, a comma is added. After the 
aecond last direction the word " and " is added, and after the last, a 


full atop, sao the message may read "there are exita to the north, the 
aouth and the eaat.” or "there are exits to the north and the west." 
or “there are exita to the south.” 

Finally another call is made to the display subroutine at 4850 
which diaplays all the information about the visible objects and 
exita. 

If you wish, and if you have room, you may like to add another row 
of equala aigna before the "WHAT NEXT?" measaage 


O. r 
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ADVENTURE GAME WRITING - THE COMMAND PARSER 


Once again thia aection la roughly the same for all adventures 30 
yOu may copy a command parser from any adventure listing you have 
handy. For thoae of you who haven’t come acroaa the term before, the 
command parser ia the section of the program which accepts the 
player“a input and worka out what it all means. Accepting the input ia 
the easy part... 


195 POKE31060,40:POKE31063,2@: FORI=1TO3:X=USR(@) :NEXT 
197 FORI=ito100:NEXT:POKE 31063,40:FORI=1TO3:X=USR(@): NEXT 
200 PRINT:RS="PARDON?": INPUT "WHAT NEXT"; AS 


Linea 195 and 197 are a general prompt sound to let the player know 
that the computer ia finally ready to accept some input (and perhaps 
wake the player upt). The measage "PARDON?" is put into RS for cases 
where the input ia not filtered out by the error checking routine but 
coean’t cause a reply from the verb aubroutinea. Thia can happen when 
the player entera two legitimate worda which don*t make any aense when 
put together (eg. EXTINGUISH ROCK). The reat of line 200 is fairly 
eelf-explanatory. 

The next aection of the program aplíta the input up into a verb 
and a noun. | 


205 IFAS="QUIT"THENCLS:END 


210 V3="":TS="":YB=0:B=9 
2:20 FORI=1TOLENCAS) 
239 IFMIDS(AS,1,1>)=" "AND Va=""THENVS=LEFTS(AS,I-1) 


219 IPMIDSCAR,I+1,1)<>" “AND V&e>"", TS=MIDS(AS,I +1, LENCAS)-1) 
245 IFMIDS(AS,I+i,1)<>" “AND VSe>""THENI=LEN(AS) 
2530 NEXT:IFTS=""THENVS=AS 


If the player typea QUIT the acreen ia cleared and the program ends. 
If not, the atringa and variables in line 210 are cleared becauae they 
contain information from the player’s last input which isa no longer 
needed. The loop looka through the input for a Space, and when one ia 
found, everything before the apace ia placed into VS and everything 
from the next non-space character Onwards is placed in TS. Once thia 
haa been done, there ia no need to continue the loop so I is set equal 
to the length of the input, thus ending the loop at the NEXT 
statement. If nothing is in TS (the noun string) after the loop, then 
it la assumed the player haa entered a one word input (auch aa DIG) ao 
the entire contenta of the input ia placed in the verb atring,Vs, 


205 IFVS="GO"THENVS=LEFTS(TS,1) 

257 IFVS="NORTH"ORVS="SOUTH" ORVS="EAST"ORVS="WEST", VS= LEFTS(V4,1) 
260 IFLEN(VS) <3, VAZVA+ "222" 

270 IFVS="UNLIGHT"THENVS= JEXTINGUISH" 

260 IFAS="DRIVE CAR"THENVS= "START" 


The firat two linea in thia part deal with all the different waya the 
playera can enter where they want to go. For example, they could enter 
GO SOUTH, SOUTH, or just S. Theae linea convert all the direction 
conmanda to aingle letter format. 

Because aome commanda are leaa than three lettera long and they 
need to be compared with the three letter atringa in XS, three 
question marka are added to the Shorter verbs. (remember that Xs= 
"N??S??W??7E?77HELL. 2...) 

The three letter format can alao create some confusion where the 
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first three lettara of different verba area the game. Line 270 deala 
with the occurrences of UNLIGHT so they aren’t mixed up with UNLOCK. 


390 US=LEFTS(T3,3) 
319 FORI=1TONV: IF MID£(X3,1*3-2,3)=USTHENVB=1I: I=NV | 
320 NEXT:FORI=1TONO!IIF MIDS(YS,1I*3-2,3)=LEFTS(TS,3) THENB=I:I=NO 
330 NEXT 

349 IFTS="DOORMAT"THENB=27ELSE IFT2="BOOKSHELF"THENB=22 


Thla part converta the input into a verb number and a noun number. 
Firatly the firat three lettera of the playera verb are compared in 
turn with the three letter parts in X$. If they are the same at any 
atage, a valid verb haa been entered. The verb number ía asaigned to 
VB and I ia then aet to equal the number of verba to end the loop and 
aave time. Exactly the aame proceaa ia carried out on YS for the 
nouna. If a valid noun haa been entered, ita number ia placed in. B. 

Line 340 deala with occurrences of nouna where the first three 
lettera are the aame. In thia case "DOOR" and "DOORMAT" aa well aa 
“BOOK" and "BOOKSHELF". , 

These lines deal with return messages for input that the computer 
doesn’t understand. 


355 IFB=@,RS=""FOOLING AROUND WITH THE ’"+TS+"’ WON’T HELP" 
356 IFTS=""THENRS="I NEED TWO WORDS" 

358 IFVB=OTHENRS=""I DON’T UNDERSTAND “ "+V8+"/ 

360 IFVB=Q@ANDB=OTHENRS="THAT’S SILLY!" 

370 IFB>GORB-ATHEN4A CO 

380 IFVB=70R(VB=24ANDB=39)THEN 400 

390 IFVB<>@ANDC(B)<>OTHENRS="YOU DO NOT HAVE THE “+TS!:GOTO3@ 


If the player entera a noun the computer doean’t understand, ita reply 
Will be “Fooling around with the ’(noun)’ won’t help". If no noun is 
entered at all, the reply ia “I need two worda." however in both cases 
the computer will atill go to the verb aubroutine because the noun may 
not matter, or may not be needed at all (eg. Dig). | 

If the verb ia not underatood the measage ia "I don’t understand 
“(verb)*" and if neither noun or verb ia underatood the reply ia 
Simply "That’a aillyt" (You can change the error mesaagea if you wish, 
but make aure the player knowa what it ia the computer doesn’t 
underatand.) 

Linea 370 to 390 deal with playera trying to do thinga to gettable 
objecta which they haven’t got. Obvioualy thia aection doean’t apply 
to fixed objecta so line 37% forces this section to be akipped if the 
noun is not gettable. Also there are some verbs where the player 
doesn’t have to have objects to do things to them (GET is an obvious 
example, and there may be othera auch aa a rope that muat be tied to 
the tree before climbing 1t). line 389 deala with thia Situation. If 
the verb ia a valid one, and the player is not carrying the object 
referred to, the message ia "You do not have the Cobject)" and the 
input is totally rejected. 

Finally line 400 (H=Rr100+B)> ia deaigned to aave memory by holding 
the information about the player*a location and object referred to. 
This meana that inatead of having to type: 

IFR=68ANDB=89THEN..... 

You can aimply type: 

IFH=6889THEN..... 

(The laat two digita of H are the contenta of B and any preceding 
digita the contenta of R.) 


GAMES COLUMN 


By Paul Frantz 


Welcome “back to another action-packed edition of the VZDU GAMES 
COLUMN! Well actually the last couple of months have been fairly slow 
VZ gamewise but I've still got a bit to say anyway. Firstly I have a 
suggestion from my brother. "Why don't you review action games 
instead of adventure games all the time" he said. The answer of 
course lies in my preference and ongoing search for good VZ games. 
Still, VZ action games represent a large chunk of the VZ games 
community and so that's why I'm calling on all those action game 
freaks to send in their own reviews! That's right here it is, a 
once-in-a-lifetime opportunity offer to be a substantial part of this 
very column! If you are interested please contact me at the address 
below for more info on this rewarding opportunity! 

Secondly, there is my VZ PUBLIC DOMAIN TAPE. It would be right to 
say that my first tape had a bit of a poor start in the world of the 
eternal VZ and I would like to make an improvement on it (it has taken 
me ages to get some people's tapes back as well). What I propose is 
this. A NEW, second tape to hit the Public Domain range. Sounds a 
bit familiar I hear some of you think, well yes and no. The idea is 
the same but this time I am offering to all those who contribute to 
this fine piece of the VZ's future a FREE copy of the completed 
product i.e. a 90 minute tape jam-packed with VZ programs of all 
shapeg and sizes. It just sounds all so easy doesn't it. Well of 
course it does rely on you so please make the effort today and send in 
all those useful little programs and games you have created. Details 
of the new tapes distribution shall follow next time. Anyway now 
that's out of my hair we are on to a review with a difference. That's 
right this time I am not reviewing a true adventure game. Fact is 
I've about exhausted my collection. This time we have a sneak at a 
kind of simple strategy game by the name of 


ESCAPE RIVER 


Escape River a.k.a Raft-Away Pivev igs hy Larry Taylor of LASERLINK 
fame. This original idea (although I have seen something similar on 
the Apple II) for a game allows from two to six players to work as a 
team to save an ill-fated party from rising flood waters. 


This situation is this. Your group (in which each member has a 
different skill e.g. woodchopping) is stranded on the west bank of a 
fast flowing river. By co-operating and using your appropriate 


c gkills, the aim is to work to building a raft to save vou from the 


forthcoming floods. An interesting thing to point out as well is this 
games use of split-screen mode, a graphics mode enabled with a little 
assembly programming. This effectively allows the programmer four 
lines of text at the top of a mode (1) screen. Each action in the 
game has a pre-assigned key thus saving you the trouble of typing in 
repetitive commands over and over. 


Definately a great game, with a good dose of educational value as 
well. It is worth seeing even if only to see the good use of the 
split screen mode. Very well written. This shows just what the poor 
old VZ graphics chip is capable. The VZ. Still full of surprises! 
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RATING: | 
*VOCABULARY: N/A (only suitable criteria for an adventure game) 


*PUZZLE DIFFICULTY: 9 (although this can depend on the difficulty 
chosen. ) 

* ATMOSPHERE: 8 

*LASTABILITY: 7 

OVERALL id «ewe hw eee ee ee 6 (and two thirds) 

AVAILABILITY: Should still be available for a small sum from Bob 


Kitch. Address on backpage of VZDU#29. 
HOT, HANDY & HELPFUL HINTS 


x Yes, some hints! thanks to action game champ Peter Watson for the 
following: (HIGH SCORE PLAYERS take careful note!) 

CRASH: Make sure you keep changing lanes constantly. 

KAMIKAZE: Keep moving from the left side of the screen to the 
right side, according to the side the kamikazes are being released 


from. 


QUESTIONS & QUERIES 


? What, no questions? Well yes there are still a couple from last 
month. I will attempt to delve into them deeply myself. Remember to 
send your questions as we should have a team of specialised game 
players ready to help you! 


And finally 


Live: JilGH SCORES 


GAME SCORE LEVEL HOLDER 
DAWN PATROL 52500 David Wood 
CRASH 581 Peter Watson 
DIG OUT 92500 Kenley McLean 
HAMBURGER SAM 39500 stephen Frantz 
LADDER CHALLENGE 22530 Peter Watson 
KAMIKAZE 36530 Peter Watson 
TEN PIN BOWLS 206 Bernice O'Mahoney 
VZ INVADERS 30160 Peter Watson 
GALAXON 328,460 Mathew McLean 
PENGUIN ; 1350 Jason Oakley 
LUNAR LANDER 4600 Ben Hobson 
‘SUPER SNAKE. 1918 ‘Novice Peter Watson 
MAZE OF ARGON 73888 Peter Watson 
ASTEROIDS 110000 Peter McLean 
CIRCUS 1210 Peter Watson 
PANIK 7700 Peter Watson 
HOPPY 25550 Matthew McLean 
GHOST HUNTER 23400 Chris McLean 
STAR BLASTER 480 units left Matthew McLean 
KNIGHTS & DRAGONS 3700 Easy Peter Watson 
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well. Not too much happening here with the exception of 
kua an (HIGH SCORE TABLE LEADER) who has gone to ee ate 
beating three of his own records. In one case he has double oe 
score! (KAMIKAZE). The other point of interest 1s Ben ae W oe E 
stolen LUNAR LANDER away from Jason Oakley. Will ason m 


| j . Oh yes, watch out for me 
meback. Find out next time. Right here 
aoe time. I'm feeling a bit trigger happy myself. You have been 
warned! 


Anyway that's about it once more. I hope to hear from a lot of 


j ini- bove (especially 
out there concerning a lot of the mini-columns a > 
one empty ones). Please consider the rewarding benefits Of 
contributing to the next chapter in VZ public domain and write to me 
at my address below. Thank you for your support! 


And so as always, see you next edition: 


Please send all your hints, high scores, questions and answers, 


reviews and large cash donations in to: 


Paul Frantz 
25 Crocker St 
KIRWAN QLD 4817 


200730909 (computer) Users” Group 
By Graeme Bywater. 


The great little (so called toy) has done it again. In January 1987 I was offerec 
a computer program to do the "Australian Speedcar Championships". The program was 
originaly a spread sheet designed by our former foundation president Andre Schoen, His 
program found its way over to South Australia to a Mr Dodd and altered it to suit the 
needs of progressive point scoring in use of the up and coming championships At 
Claremont Speedway. We (as a club) jumped at it in doing the job. So an the 9th anc 
10th of January, 1787, the successful job was done. The previous system was by hand, 
this method long and a higher place getter was some times over looked in puting the 
final placeings and pole positions for the final, This little VZ computer was used for 
the FIRST time as a method of point scoreing in Australia on any speedway for such an 
event no other computer (to our knowledge) has been used for this purpose. 

SO comes 91, and according Speedway's calendar, the "Australian Speedcar 
Championships are on again on the ist and 2nd of February, and so the little VZ comes 
up trumps again. | 

There were 44 entries from all over Australia, even Northern Territory. of them i¢ 
did not start. 

The eventual winners are :- (1)N.T.1 Ekins. (2)W.A.4 Jones. (3)W.A.76 Watson Jnr. 
(4)N.7T.51 Blake. (3)W,A. 34 Figiomeni. (6)W.A.75 Watson Snr. (7)W.A.9 Cover. (8)S.A.27 
Herreen. (9)W.A.21 staton. (10)W,A.29 Glazebrook. 
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LET" 3 INVESTIGATE SOUND ON THE YŽ. 
FART IV 
by Eob Kitch. 


For the next session on sound generation on the VZ, I will detail some 
articles on peripheral devices that can be connected to the VZ. These can 
greatly expand tne appeal of the machine and enhance your interest in the VZ. 
(mot to mention the enthusiasm that others will get for the computer.) 


Trere are two types of "noise making" peripherals. These are VOICE and SOUND 
synthesis 1.C. chips. These are alternate and novel forms of output, to that 
obtained from the screen or printer, when one has tired of these entirely visual 
forms of output. Music synthesis exceeds the capabilities of the VZ's inbuilt 
piezo-speaker. 


A number of circuits and projects have appeared in the magazines over the past 
few years. This article briefly identifies these for those who may wish to bui`d 
a board or alternativeiy register interest with me So +hat we can make available 
these peripherals plus some off-the-shelf software. 


Imagine the blockbusting use of voice and music synthesis in games or 
applications for the VZ. 


A couple of introductory articles on speech synthesis appeared in BYTE Sep. 84, 
p.337 and ITEC #26, p.812. These provide good background. 


Magazine Date Name Chip Interface Software 
VOICE 
CA Oct. 82 Comeu- Votrax Centronics Yes 
Apr. 83 voice SC-01 
APC Dec. 84 DIY SC—001 Centronics Yes 
synth. 
ETI Jan. 85 Chatter SC-01 Centronics Yes 
Apr. 80  —00X | 
ETI Mar. 86 Talking GI Parallel No 
yZ-200 SP0256 
AEM Feb. 86 Project Gl Centronics Yes 
4505 SPO255 
PE Mar. 85 BBC GI Parailel Yes 
Jun. 85 SPO256 
PE Jan. 86 Spectrum Yes 
SOUND 
APC Nov. 84 DIY TI Centronics Yes 
synth.  SN76496 
CA Aug. 83 Comeu- TI Centronics Yes 


| | muse SN76489 
So if you are tired of reading output from your computer, why mot try listening 


instead”? 


INFORMATION 


ked by a member if I knew of a good 
Some time ago I was as y a, a 


| time 
book on Machine (Assembly) language. At the EN 
parently I came across a very good one. Although it 15 for TRS8O, 
it fits the VZ perfectly, both having the 780 as CPU. TE 185:7 


780 ASSEMBLY LANGUAGE PROGRAMMING 


By CHRISTOPHER LUDIS ai sid 
A computer literacy SK1115 ook. 
Published by Franklin Watts. Sydney. ISBN 0-531-04924-8. 


Library no. 005 265 ZIL 


What makes it so attractive 15 that it gets you familar with 
programming, before confusing you with FLAGS, SHIFTS and ROTATE 


and 2's compliment. 


It gets down to 'TIN TACKS from the start. It compares 
routines with BASIC. All the above can be learned when you have 


need for them. 


If you want to get well and truely confused, then get ZAC "S 
——PROGRAMMING THE 780. If you are a programmer with a lot of 
experience then this is the book that has the lot. But in a very 
HIBROW way. 


Your local library should be able to produce it for you, as 
they have an interchage arrangement. Box Hill has it on their 
shelves. 


I hope this may be of help to some members. 
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TRADING POST 


EPROMS for EXTENDED pos. and BASIC 
Are available from 
Bob Kitch 
7 Eurella Str. 
KENMORE Q’ ld. 
HHHH 


4069 
HHH 


Wanted to BUY. 
V.2.200. if goog order- 
Ben Hobson. p. 0. BOX.: 2039 Guirind1: 


Good price paid. 
N.S.W. 2343. 


##HH $434 


WANTED TO BUY WANTED TO BUY 


WANTED TO BUY 


MICROSOFT BASIC DECODED . 
TRS sO information series II. 
By JAMES FORVOUR 


Published by 1 J G. West 11th Str. UPLAND. CA. 


Reply Editor. 


vy Z USER GROUPS 


OTHER 
H.V.V.Z.U.G DISKMAG 
P.O.Box 161 P.O.Box 600. 
Taree NSW. 2430. 


JESMOND NSW. 2299. 


CENT. VIC.COMP.Club BRISBANE VZUG 
63 Tingalpa 


24 Breen St. t. 
BENDIGO VIC 3550 WYNUM West. Q'id. 4178 


Graeme Bywater 
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